home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1997 November & December
/
Amiga-CD 1997 #11-12.iso
/
pd-disketten
/
ungepackt
/
8_95
/
apd-8-95-2
/
arexx kurs
/
arexxmanager2.1.rx
/
arexxshell2.1
< prev
next >
Wrap
Text File
|
1996-01-25
|
1KB
|
40 lines
/* ArexxShell2.1 programmed by Karsten Wysocki 08.03.94 */
OPTIONS FAILAT 100
call addlib("rexxsupport.library",0,-30,0)
portname = "ArexxShell"
portlist = Showlist('p')
if find(portlist,portname) > 0 then exit
call openport(portname)
x = open(outwin,"CON:200/156/400/100/ArexxShell2.1 Input/SMART")
address = "REXX"
do forever
x = writech(outwin,'*')
x = writech(outwin,'>')
eingabe = readln(outwin)
stupeingabe = strip(upper(eingabe))
if stupeingabe = "EXIT" | stupeingabe = "X" then leave
ersteingabewort = word(stupeingabe,1)
if ersteingabewort = "ADDRESS"
then do
zweiteingabewort = word(stupeingabe,2)
if zweiteingabewort ~= "" then address = zweiteingabewort
end
x = open('ArexxInput','RAM:ArexxInput','W')
x = writeln('ArexxInput','/* */;OPTIONS RESULTS;RC=0;RESULT=" ";address="'address'";ADDRESS 'address';Echo " ";'eingabe';')
x = writeln('ArexxInput','Echo "ADDRESS:"address;Echo "RC:"RC " Result:"RESULT;exit')
x = close('ArexxInput')
commandline = 'RAM:' || '0a'x || 'sys:rexxc/rx ram:ArexxInput'
ADDRESS 'COMMAND'
commandline
end
x = close(outwin)
exit